home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_10033.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  10.5 KB  |  333 lines
  1. -- card: 10033 from stack: in.1
  2. -- bmap block id: 5614
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field id 6
  9.   hide card field id 7
  10.   hide card field id 8
  11.   hide card field id 9
  12.   hide card field id 10
  13.   hide card field id 13
  14. end openCard
  15.  
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 01
  20. -- high flags: 0000
  21. -- rect: left=14 top=49 right=66 bottom=213
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 12
  27. -- style flags: 256
  28. -- line height: 16
  29. -- part name: 
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 01
  34. -- high flags: 0000
  35. -- rect: left=14 top=66 right=83 bottom=213
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: 
  44.  
  45.  
  46. -- part 10 (field)
  47. -- low flags: 81
  48. -- high flags: 4007
  49. -- rect: left=204 top=112 right=263 bottom=423
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 9
  55. -- style flags: 0
  56. -- line height: 12
  57. -- part name: 
  58.  
  59.  
  60. -- part 3 (field)
  61. -- low flags: 01
  62. -- high flags: 0000
  63. -- rect: left=166 top=83 right=301 bottom=266
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 65535
  67. -- font id: 3
  68. -- text size: 12
  69. -- style flags: 1280
  70. -- line height: 18
  71. -- part name: 
  72.  
  73.  
  74. -- part 4 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=265 top=83 right=301 bottom=492
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 18
  85. -- part name: 
  86.  
  87.  
  88. -- part 6 (field)
  89. -- low flags: 80
  90. -- high flags: 0001
  91. -- rect: left=0 top=0 right=342 bottom=12
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 
  100.  
  101.  
  102. -- part 7 (field)
  103. -- low flags: 80
  104. -- high flags: 0001
  105. -- rect: left=500 top=0 right=342 bottom=512
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114.  
  115.  
  116. -- part 8 (field)
  117. -- low flags: 80
  118. -- high flags: 0001
  119. -- rect: left=0 top=0 right=40 bottom=512
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: 
  128.  
  129.  
  130. -- part 9 (field)
  131. -- low flags: 80
  132. -- high flags: 0001
  133. -- rect: left=0 top=302 right=342 bottom=512
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: 
  142.  
  143.  
  144. -- part 12 (button)
  145. -- low flags: 00
  146. -- high flags: A003
  147. -- rect: left=182 top=309 right=331 bottom=282
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Continue
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   global sun, moon, mercury, venus, mars, jupiter, saturn, uranus, neptune, pluto, ascendant, midheaven
  159.   set cursor to 4
  160.  
  161.   put empty into card field premiere of card id 2898
  162.   put empty into card field alternate of card id 2898
  163.   put empty into card field id 16 of card id 2898
  164.   put empty into card field id 17 of card id 2898
  165.  
  166.   put "Sun," & sun into line 1 of card field id 10
  167.   put "Moon," & moon into line 2 of card field id 10
  168.   put "Mercury," & mercury into line 3 of card field id 10
  169.   put "Venus," & venus into line 4 of card field id 10
  170.   put "Mars," & mars into line 5 of card field id 10
  171.   put "Jupiter," & Jupiter into line 6 of card field id 10
  172.   put "Saturn," & Saturn into line 7 of card field id 10
  173.   put "Uranus," & Uranus into line 8 of card field id 10
  174.   put "Neptune," & Neptune into line 9 of card field id 10
  175.   put "Pluto," & Pluto into line 10 of card field id 10
  176.   put "Ascendant," & Ascendant into line 11 of card field id 10
  177.   put "Mid-Heaven," & midheaven into line 12 of card field id 10
  178.  
  179.   put 1 into positivecount
  180.   put 1 into negativecount
  181.  
  182.   put 1 into linecount
  183.   put "premiere" into fieldcount
  184.   repeat with x = 1 to 10
  185.     put item 2 of line x of card field id 10 into lowplanet
  186.     repeat with y = (x +1) to 12
  187.       put item 2 of line y of card field id 10 into hiplanet
  188.       if hiplanet < lowplanet then add 360 to hiplanet
  189.       put hiplanet - lowplanet into aspect
  190.       if aspect <= 8 or aspect >= 352 and aspect <= 360  then
  191.         put item 1 of line x of card field id 10 && "conjunct " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  192.         if linecount < 20 then add 1 to linecount
  193.         else
  194.           put 1 into linecount
  195.           put "alternate" into fieldcount
  196.         end if
  197.       end if
  198.       if aspect >= 172 and aspect <= 188 then
  199.         put item 1 of line x of card field id 10 && "oppose " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  200.         put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
  201.         add 1 to negativecount
  202.         if linecount < 20 then add 1 to linecount
  203.         else
  204.           put 1 into linecount
  205.           put "alternate" into fieldcount
  206.         end if
  207.       end if
  208.       if aspect >= 82 and aspect <= 98 or aspect >= 262 and aspect <= 278 then
  209.         put item 1 of line x of card field id 10 && "square " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  210.         put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
  211.         add 1 to negativecount
  212.         if linecount < 20 then add 1 to linecount
  213.         else
  214.           put 1 into linecount
  215.           put "alternate" into fieldcount
  216.         end if
  217.       end if
  218.       if aspect >= 112 and aspect <= 128 or aspect >= 232 and aspect <= 248 then
  219.         put item 1 of line x of card field id 10 && "trine " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  220.         put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line positivecount of card field id 16 of card id 2898
  221.         add 1 to positivecount
  222.         if linecount < 20 then add 1 to linecount
  223.         else
  224.           put 1 into linecount
  225.           put "alternate" into fieldcount
  226.         end if
  227.       end if
  228.       if aspect >= 54 and aspect <= 66 or aspect >= 294 and aspect <= 306 then
  229.         put item 1 of line x of card field id 10 && "sextile " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  230.         put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line positivecount of card field id 16 of card id 2898
  231.         add 1 to positivecount
  232.         if linecount < 20 then add 1 to linecount
  233.         else
  234.           put 1 into linecount
  235.           put "alternate" into fieldcount
  236.         end if
  237.       end if
  238.       if aspect >= 148 and aspect <= 152 or aspect >= 208 and aspect <= 212 then
  239.         put item 1 of line x of card field id 10 && "quincunx " & item 1 of line y of card field id 10 into line linecount of card field  fieldcount of card id 2898
  240.         put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
  241.         add 1 to negativecount
  242.         if linecount < 20 then add 1 to linecount
  243.         else
  244.           put 1 into linecount
  245.           put "alternate" into fieldcount
  246.         end if
  247.       end if
  248.     end repeat
  249.   end repeat
  250.  
  251.   repeat with x = 1 to 12
  252.     put item 2 of line x of card field id 10 into line x of card field id 15 of card id 2898
  253.   end repeat
  254.  
  255.   repeat with x = 1 to 12
  256.     if  (line x of card field id 15 of card id 2898) <= 180 then put abs((line x of card field id 15 of card id 2898) - 180) into line x of card field id 15 of card id 2898
  257.     else put abs((line x of card field id 15 of card id 2898) - 540) into line x of card field id 15 of card id 2898
  258.   end repeat
  259.  
  260.   put the number of lines in card field id 16 of card id 2898 into m
  261.   repeat with x = 1 to m
  262.     if (item 1 of line x of card field id 16 of card id 2898) <= 180 then put abs ((item 1 of line x of card field id 16 of card id 2898) - 180) into item 1 of line x of card field id 16 of card id 2898
  263.     else put abs((item 1 of line x of card field id 16 of card id 2898) - 540) into item 1 of line x of card field id 16 of card id 2898
  264.     if (item 2 of line x of card field id 16 of card id 2898) <= 180 then put abs((item 2 of line x of card field id 16 of card id 2898) - 180) into item 2 of line x of card field id 16 of card id 2898
  265.     else put abs((item 2 of line x of card field id 16 of card id 2898) - 540) into item 2 of line x of card field id 16 of card id 2898
  266.   end repeat
  267.  
  268.   put the number of lines in card field id 17 of card id 2898 into m
  269.   repeat with x = 1 to m
  270.     if (item 1 of line x of card field id 17 of card id 2898) <= 180 then put abs((item 1 of line x of card field id 17 of card id 2898) - 180) into item 1 of  line x of card field id 17 of card id 2898
  271.     else put abs((item 1 of line x of card field id 17 of card id 2898) - 540) into item 1 of line x of card field id 17 of card id 2898
  272.     if (item 2 of line x of card field id 17 of card id 2898) <= 180 then put abs((item 2 of line x of card field id 17 of card id 2898) - 180) into item 2 of line x of card field id 17 of card id 2898
  273.     else put abs((item 2 of line x of card field id 17 of card id 2898) - 540) into item 2 of line x of card field id 17 of card id 2898
  274.   end repeat
  275.  
  276.   go to next card
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 13 (field)
  282. -- low flags: 80
  283. -- high flags: 0001
  284. -- rect: left=169 top=307 right=335 bottom=297
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 0
  288. -- font id: 3
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: 
  293.  
  294.  
  295. -- part contents for card part 3
  296. ----- text -----
  297. Sun:
  298. Moon:
  299. Mercury:
  300. Venus:
  301. Mars:
  302. Jupiter:
  303. Saturn:
  304. Uranus:
  305. Neptune:
  306. Pluto:
  307. Ascendant:
  308. Mid-Heaven:
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316. -- part contents for card part 10
  317. ----- text -----
  318. Sun,353.333333
  319. Moon,146.183333
  320. Mercury,347.2
  321. Venus,345.35
  322. Mars,57.666667
  323. Jupiter,177.35
  324. Saturn,254.233333
  325. Uranus,123.183333
  326. Neptune,212.183333
  327. Pluto,148.616667
  328. Ascendant,261.316667
  329. Mid-Heaven,173
  330.  
  331. -- part contents for card part 1
  332. ----- text -----
  333.